home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / scramble.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-10  |  3.9 KB  |  95 lines
  1. 5   ' SCRAMBLE WORD GAME.   VERSION 3/11/82
  2. 10  CLS:KEY OFF:LOCATE 5,25:PRINT "S C R A M B L E D   E G G S"
  3. 15  DEF SEG:POKE 106,0
  4. 20  LOCATE 9,25:PRINT "DO YOU WISH INSTRUCTIONS";
  5. 30  C$=INKEY$:RANDOMIZE RND*1000:IF C$="" THEN 30 ELSE IF C$<>"Y" AND C$<>"y"     THEN 140
  6. 40  CLS:PRINT"THE OBJECT OF THIS GAME IS TO TRY AND UNSCRAMBLE A FIVE LETTER WORD AS QUICKLY AS POSSIBLE.  THE FASTER YOU ARE THE MORE POINTS YOU SCORE. YOU HAVE ONLY 60 SECONDS FOR EACH WORD."
  7. 50  PRINT:PRINT"FOR EXAMPLE:"
  8. 60  PRINT"              T M C H A     WOULD BE     M A T C H "
  9. 70  PRINT"                               OR"
  10. 80  PRINT"              N L A B K     WOULD BE     B L A N K "
  11. 90  PRINT:PRINT "THE COMPUTER CONTROLS THE ENTIRE GAME.   YOU   D O   N O T   HIT ENTER - - - MERELY TYPE IN THE WORD YOU BELIEVE TO BE CORRECT."
  12. 100  PRINT:PRINT:PRINT:INPUT"PRESS ENTER TO TURN THE PAGE";E$
  13. 110  CLS:PRINT"IF YOU MAKE A MISTAKE TYPING - - - FINISH THE WORD - - - YOU MAYNOT BACKSPACE."
  14. 120  PRINT:PRINT"SOME WORDS MAY BE USED MORE THAN ONCE AND SOME MAY EVEN APPEAR  IN CORRECT ORDER.  EACH GAME CONSISTS OF TEN WORDS FOR EACH     PLAYER."
  15. 130  PRINT:PRINT"HAVE FUN!":PRINT:PRINT:PRINT:INPUT"PUSH ENTER TO BEGIN";G$
  16. 140  CLS
  17. 150  INPUT "1ST PLAYERS NAME";N$(1)
  18. 160  INPUT "2ND PLAYERS NAME";N$(2)
  19. 170  X=0:CLS:PRINT N$(1);"'S TURN"
  20. 180   FOR O=1 TO 500:NEXT O:  GOTO 210
  21. 190  X=0:CLS:PRINT N$(2); "'S TURN"
  22. 200   FOR O = 1 TO 500:  NEXT O
  23. 210  RESTORE
  24. 220  Q=INT(210*RND)+1
  25. 230  FOR F=1 TO Q
  26. 240  READ A$
  27. 250  IF A$= "END" THEN 210
  28. 260  NEXT F
  29. 270  A$(1) = MID$ (A$,1,1)
  30. 280  A$(2) = MID$ (A$,2,1)
  31. 290  A$(3) = MID$ (A$,3,1)
  32. 300  A$(4) = MID$ (A$,4,1)
  33. 310  A$(5) = MID$ (A$,5,1)
  34. 320  FOR I = 1 TO 5
  35. 330  R=INT(5*RND)+1
  36. 340  IF A$(R) ="0" THEN 330
  37. 350  B$(I) = A$(R)
  38. 360  A$(R) = "0"
  39. 370  NEXT I
  40. 375  T1$=RIGHT$(TIME$,2)
  41. 377  T$=RIGHT$(TIME$,2):IF T$=T1$ THEN 377
  42. 380  LOCATE 5,24:COLOR 15:FOR I = 1 TO 5
  43. 390  PRINT B$(I);"     ";
  44. 400  NEXT I:COLOR 7
  45. 410  V$=INKEY$:IF V$<>"" THEN 410
  46. 420  GOSUB 900 : V$=I$
  47. 440  LOCATE 9,28:PRINT V$;
  48. 450  GOSUB 900 : W$=I$
  49. 470  LOCATE 9,32:PRINT W$;
  50. 480  GOSUB 900 : X$=I$
  51. 500  LOCATE 9,36:PRINT X$;
  52. 510  GOSUB 900 : Y$=I$
  53. 530  LOCATE 9,40:PRINT Y$;
  54. 540  GOSUB 900 : Z$=I$
  55. 560  LOCATE 9,44:PRINT Z$;
  56. 570  IF A$ = (V$+W$+X$+Y$+Z$) THEN 590
  57. 580  LOCATE 9,20:PRINT TAB(60);:GOTO 410
  58. 590  S=S+1: IF S/2 = INT (S/2) THEN 660
  59. 600  P1=P1+G
  60. 610  PRINT:PRINT:PRINT:PRINT TAB(6) "CORRECT!":PRINT
  61. 620  PRINT"YOU SCORE ";G; "POINTS"
  62. 630  LOCATE 22,30:PRINT "ROUND";INT(S/2)+1:PRINT
  63. 640  PRINT TAB(20) N$(1);P1;"       ";N$(2);P2;
  64. 650  FOR V=1 TO 4000: NEXT V: GOTO 190
  65. 660  P2=P2+G
  66. 670  PRINT:PRINT:PRINT:PRINT TAB(6) "CORRECT!":PRINT
  67. 680  PRINT "YOU SCORE";G;"POINTS
  68. 690  LOCATE 22,30:PRINT "ROUND";S/2:PRINT
  69. 700  PRINT TAB(20) N$(1);P1;"        ";N$(2);P2;
  70. 710  FOR V=1 TO 4000:NEXT V
  71. 720  IF S=20 THEN 730 ELSE 170
  72. 730  PRINT:PRINT "GAME OVER";:END
  73. 740  PRINT:PRINT "   OUT OF TIME":PRINT:PRINT"THE WORD WAS ";A$
  74. 750  S=S+1:IF S/2=INT(S/2) THEN 690 ELSE 630
  75. 760  T$=RIGHT$(TIME$,2):IF T1$<>T$ THEN T1$=T$:X=X+1:G=61-X
  76. 765  LOCATE 9,65:PRINT G;
  77. 770  IF G<=0 THEN 740
  78. 780  RETURN
  79. 790  DATA LEASE,FIRST,MONTH,MONEY,TOUCH,BRAND,TRULY,VALUE,RANGE,MUSIC,LEVEL,METER,POINT,TOTAL,PANEL,AMPLE,SOUND,THERE,THREE,ENJOY,BUILT,SHORT,COULD,CLEAN,PROOF,FLOOR,INDEX,PRICE,BOARD
  80. 800  DATA CABLE,CLOCK,TABLE,SMOKE,NOISE,LOWER,BASIC,AUDIO,FRONT,WHILE,RATIO,IMAGE
  81. 810  DATA FRONT,OTHER,IDEAL,STORE,POWER,WOMEN,TOTAL,MAGIC,GLOBE,MODEL,PRINT,TOWER,COVER,EIGHT,GLIDE,WATER,TODAY,PIZZA,METAL,SHELF,DRIVE,CLASS,GREAT,LIGHT,SCALE,STYLE,BREAD,DRINK,PHONE
  82. 820  DATA SHAPE,GREEN,GLASS,SAUCE,SLICE,HEART,LARGE,STEAM,ONION,STACK
  83. 830  DATA CREAM,CRUST,SALAD,EXTRA,ORDER,BACON,BLACK,OLIVE,SMALL,SPEAR,SCREW,SEVEN,DOUGH,FLOAT,HEARD,SOLID,HEAVY,CRISP,PINCH,PUNCH,SENSE,SOLID,STAND,EVERY,SHOCK,VINYL,MAPLE,WOVEN,GRAIN
  84. 840  DATA SKATE,FORCE,COLOR,PIECE,ANGLE,PITCH,WORTH,ABOUT,WEIGH,CHECK,HANDY,CANDY
  85. 850  DATA SWEEP,PATCH,WAGON,TRUCK,POUND,TOWEL,PAPER,QUIET,SPACE,RADIO,THESE,CARRY,ALONG,READY,THERE,WHERE,ALARM,PAUSE,TIMER,CLOTH,SHACK,STICK,ERASE,ALBUM,START,LAPEL,WHITE,DELAY
  86. 860  DATA EJECT,SLIDE,IDEAL,MINUS,GRAPH,FLOAT,QUICK,BLANK,SUITE,NYLON
  87. 870  DATA PROBE,RELAY,SOLID,SWEET,SLOPE,SLEEP,COUNT,LOGIC,MOUNT,DECAL,SCALE,ORDER,TORCH,SPADE,SCOPE,LABEL,ROUND,WAFER,CARRY,LOWER,TEACH,AGAIN,MOTOR,MAJOR,LEARN,ORGAN,GRIPE,EAGLE
  88. 880  DATA GAUGE,MATCH,AWARE,TRUNK,CLAMP,OTHER,WOULD,LIMIT,SWING,WRIST
  89. 890  DATA END
  90. 900  I$=INKEY$:IF I$="" THEN GOSUB 760:GOTO 900
  91. 910  IF LEN(I$) >1 THEN 900
  92. 920  I=ASC(I$):IF I >96 AND I <123 THEN I=I-32
  93. 930  I$=CHR$(I)
  94. 940  RETURN
  95.